home *** CD-ROM | disk | FTP | other *** search
/ Star Trek - The Next Gene…ractive Technical Manual / Star Trek The Next Generation Interactive Technical Manual.iso / ncc1701d / 08 / 08planlm.dir / 00008_Script_new init < prev    next >
Text File  |  1994-09-19  |  500b  |  19 lines
  1. on exitFrame
  2.   global gNodeNow
  3.   set vTempNode=string(gNodeNow)
  4.   set vNodeLen=the number of chars in vTempNode
  5.   if ("abcdefg" contains char vNodeLen of vTempNode) then
  6.     delete char vNodeLen of vTempNode
  7.   end if
  8.   set vTempNode=value(vTempNode) -- cuts off leading zeros
  9.   put label(string(vTempNode)) into temp
  10.   --put "Here is Temp:"&temp
  11.   --put "Here is vTempNode:"&vTempNode
  12.   if temp then
  13.     go temp
  14.   else
  15.     go "0"
  16.   end if
  17.   global gNewNode
  18.   put 0 into gNewNode
  19. end